0 POKE53280,0:POKE53281,5
1 PX(1)=-1:PY(1)=-1:PZ(1)=+1
2 PX(2)=+1:PY(2)=-1:PZ(2)=+1
3 PX(3)=-1:PY(3)=+1:PZ(3)=+1
4 PX(4)=+1:PY(4)=+1:PZ(4)=+1
5 PX(5)=-1:PY(5)=-1:PZ(5)=-1
6 PX(6)=+1:PY(6)=-1:PZ(6)=-1
7 PX(7)=-1:PY(7)=+1:PZ(7)=-1
8 PX(8)=+1:PY(8)=+1:PZ(8)=-1
9 ZM=20:F=1
40 GOSUB1000
50 XA=XA+0.5
51 YA=YA+0.7
52 ZA=ZA+0.2
53 F=F+1
60 GOTO40
100 END
1000 REM-------------------------------
1001 PRINT"[153]CALCULATING FRAME";F
1002 FORI=1TO8
1005 X3=PX(I):Y3=PY(I):Z3=PZ(I)
1006 GOSUB3000
1007 X=X3*ZM/(Z3+4)+20
1008 Y=Y3*ZM/(Z3+4)+12
1010 REMSP=1524+X+INT(Y)*40
1020 REMPOKESP,42
1021 XC(I)=X:YC(I)=Y
1030 NEXT
1032 PRINT"[147]                         ";
1033 PRINT"[158]DISPLAYING FRAME";F
1035 GOSUB5000
1040 RETURN
2000 REM-------------------------------
2001 RX=X*COS(A)+Y*COS(A+(null)/2)
2010 RY=X*COS(A+(null)/2)+Y*COS(A+(null))
2020 RETURN
3000 REM-------------------------------
3010 A=XA:X=Y3:Y=Z3:GOSUB2000
3020 Y3=RX:Z3=RY
3030 A=YA:X=X3:Y=Z3:GOSUB2000
3040 X3=RX:Z3=RY
3050 A=ZA:X=X3:Y=Y3:GOSUB2000
3060 X3=RX:Y3=RY
3070 RETURN
4000 REM-------------------------------
4010 DX=X2-X1:DY=Y2-Y1
4020 SP=1024+X1+INT(Y1)*40
4030 L=ABS(DY):YS=SGN(DY)*40
4035 IFABS(DX)>ABS(DY)THEN4100
4040 FORI=1TOL
4045 POKESP,42
4050 SP=SP+YS+DX/(L+0.0001)
4060 NEXT:RETURN
4100 L=ABS(DX):XS=SGN(DX):YP=0:YS=DY/L
4110 FORI=1TOL
4120 POKESP+INT(YP)*40,42
4130 YP=YP+YS:SP=SP+XS
4140 NEXT:RETURN
5000 REM-------------------------------
5010 X1=XC(1):Y1=YC(1)
5020 X2=XC(2):Y2=YC(2) : GOSUB4000
5030 X1=XC(3):Y1=YC(3)
5040 X2=XC(4):Y2=YC(4) : GOSUB4000
5050 X1=XC(1):Y1=YC(1)
5060 X2=XC(3):Y2=YC(3) : GOSUB4000
5070 X1=XC(2):Y1=YC(2)
5080 X2=XC(4):Y2=YC(4) : GOSUB4000
5090 REM///
5110 X1=XC(5):Y1=YC(5)
5120 X2=XC(6):Y2=YC(6) : GOSUB4000
5130 X1=XC(7):Y1=YC(7)
5140 X2=XC(8):Y2=YC(8) : GOSUB4000
5150 X1=XC(5):Y1=YC(5)
5160 X2=XC(7):Y2=YC(7) : GOSUB4000
5170 X1=XC(6):Y1=YC(6)
5180 X2=XC(8):Y2=YC(8) : GOSUB4000
5190 REM///
5210 X1=XC(1):Y1=YC(1)
5220 X2=XC(5):Y2=YC(5) : GOSUB4000
5230 X1=XC(2):Y1=YC(2)
5240 X2=XC(6):Y2=YC(6) : GOSUB4000
5250 X1=XC(3):Y1=YC(3)
5260 X2=XC(7):Y2=YC(7) : GOSUB4000
5270 X1=XC(4):Y1=YC(4)
5280 X2=XC(8):Y2=YC(8) : GOSUB4000
5290 REM///
5999 RETURN